home *** CD-ROM | disk | FTP | other *** search
- /*#include "/usr/people/c/lcoffin/ray/rayshade/include/defs.rh"*/
-
-
- screen 320 400
-
- eyep -3 -33 6
- lookp .2 .2 3
- background 0 0 1
- fov 45 34
-
- sample 3
- maxdepth 3
-
- light 1 1 1 point 500 -500 500
-
- surface this_red
- ambient .5 0 0
- diffuse 1 0 0
-
- surface red
- ambient .1 0 0
- diffuse 1 0 0
-
- surface black
- ambient 0 0 0
- diffuse 0 0 0
-
- urface brown diffuse 0.3147 0.0794 0.0118 ambient 0.1049 0.0265 0.0039
-
- surface neon_blue
- ambient 0.0329 0.4621 0.5125
- diffuse .5 .5 .5
- specular .3 .3 .3
- specpow 67
-
- surface hot_pink
- ambient 1.000 0.461 0.461
- diffuse .4 .4 .4
- specular .3 .3 .3
- specpow 85
-
- surface hot_green
- ambient 0.442 1.000 0.309
- diffuse .4 .4 .4
- specular .3 .3 .3
- specpow 70
-
- surface handle
- ambient 0 0 0
- diffuse .1 .1 .1
- specular .5 .5 .5
- specpow 50
-
-
- surface st_steel
- ambient .1 .1 .1
- diffuse .3 .3 .3
- specular 1 1 1
- specpow 300
- reflect 1
-
- surface tan
- ambient 0.305 0.255 0.12
- diffuse 0.709 0.509 0.236
-
- plane red 0 0 -7.1 0 0 1
- texture checker black
- scale 10 10 10
-
-
- #define zstep 2.7
- #define rad 2
- #define contrl rad*1.31
- #define wirerad .7
-
- name cscrew list
- sweptsph handle bezier -10 0 0 -7 0 0 7 0 0 10 0 0
- 1 6 -6 0
- scale 1.8 1.8 1.8
- translate 0 0 (11*zstep)
-
- cylinder st_steel wirerad 0 0 (11*zstep) 0 0 (8*zstep)
-
- sweptsph st_steel
- xbezier 0 0 (-rad) (-rad)
- ybezier 0 0 (-contrl) 0
- zcoeffs (8*zstep) (-zstep) 0 0
- wirerad 0 0 0
-
- list
- sweptsph st_steel
- xbezier rad rad -rad -rad
- ybezier 0 (contrl) (contrl) 0
- zcoeffs 0 zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier -rad -rad rad rad
- ybezier 0 (-contrl) (-contrl) 0
- zcoeffs zstep zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier rad rad -rad -rad
- ybezier 0 (contrl) (contrl) 0
- zcoeffs (2*zstep) zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier -rad -rad rad rad
- ybezier 0 (-contrl) (-contrl) 0
- zcoeffs (3*zstep) zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier rad rad -rad -rad
- ybezier 0 (contrl) (contrl) 0
- zcoeffs (4*zstep) zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier -rad -rad rad rad
- ybezier 0 (-contrl) (-contrl) 0
- zcoeffs (5*zstep) zstep 0 0
- wirerad 0 0 0
-
- sweptsph st_steel
- xbezier rad rad -rad -rad
- ybezier 0 (contrl) (contrl) 0
- zcoeffs (6*zstep) zstep 0 0
- wirerad 0 0 0
-
- end
-
-
- sweptsph st_steel
- xbezier rad rad (contrl/2) 0
- ybezier 0 (-contrl/2) -rad -rad
- zcoeffs 0 (-0.5*zstep) 0 0
- wirerad -wirerad 0 0
-
- end
- scale .3 .3 .3
-
-
- object cscrew rotate .4 .4 1 45
-
-
- name cork list
- cone tan
- 2.3 0 0 0
- 1.8 0 0 -5
- disc tan 2.3 0 0 0 0 0 1
- disc tan 1.8 0 0 -5 0 0 -1
- end
- texture bump 1
- scale .2 .2 .2
- texture blotch -.5 brown
- scale .2 .2 .2
- texture blotch -.5 brown
- scale .2 .2 .2
- texture blotch -.2 black
- scale .2 .2 .2
- texture blotch -.2 black
- scale .2 .2 .2
-
- object cork
- translate 0 0 -2
- rotate .4 .4 1 45
-
-